Private Sub CommandButton2_Click()

    Dim  As Range
    Dim ׸ As Node
    
    Set  = Range("C3", Cells(Rows.Count, "C").End(xlUp))
    Set ׸ = TreeView1.SelectedItem

    If Not ׸.Parent Is Nothing Then

        If MsgBox(" ߽ϱ?", vbYesNo) = vbYes Then
        
            .Find(What:=׸.Text).Offset(, 3).Value = "O"
            ׸.Parent.Selected = True
            TextBox1.Value = ""
            
            TreeView1.Nodes.Remove ׸.Index
            
            Label2.Caption = "  : " & TreeView1.SelectedItem.Children
            
        End If

    End If

End Sub